home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapuset.plp < prev    next >
Text File  |  1993-11-30  |  23KB  |  827 lines
  1. /************************************************************************
  2. *    アップロード予約                        *
  3. ************************************************************************/
  4. /*    アップロード予約メニュー    */
  5. %UPSET{
  6.     loop({
  7.     SNDMSG({erande_f.snd});
  8.     footnote({アップロードする場所を選択して下さい});
  9.     select({アップロードする場所を選択して下さい},99999,{im({No})},
  10.         {    テキストメール    },{MAILSET({テキストメール});im({Yes})},
  11.         {    バイナリメール    },{MAILSET({バイナリメール});im({Yes})},
  12.         {    事務局宛メール    },{JMAILSET;im({Yes})},
  13.         { ＮＩＦＴＹ連携メール },{NIFMAILSET;
  14.                     im({Yes})},
  15.         {        ＳＩＧ        },{UPSIG;im({Yes})},
  16.         {        ＢＢＳ        },{KAKISET({ＢＢＳ});im({Yes})},
  17.         {        ＣＵＧ        },{UPCUG;im({Yes})},
  18.         {      ＯＬＴ広場      },{OLTSET;im({Yes})},
  19.         {       不在通知       },{FUZAISET;im({Yes})},
  20.         {     プロフィール     },{PROFSET;im({Yes})},
  21.         {        終  了        },{im({No})});
  22.     });
  23. };
  24. %UPSIG{
  25.     loop({
  26.     SNDMSG({erande_f.snd});
  27.     footnote({アップロードする場所を選択して下さい});
  28.     select({アップロードする場所を選択して下さい},99999,{im({No})},
  29.         { フォーラム },{KAKISET({フォーラム});im({Yes})},
  30.         {   会議室   },{KAKISET({ＳＩＧ内会議室});im({Yes})},
  31.         { ＯＬＴ広場 },{SIGOLTSET;im({Yes})},
  32.         {   ＯＳＬ   },{OSLSET;im({Yes})},
  33.         {   終  了   },{im({No})});
  34.     });
  35. };
  36. %UPCUG{
  37.     loop({
  38.     SNDMSG({erande_f.snd});
  39.     footnote({アップロードする場所を選択して下さい});
  40.     select({アップロードする場所を選択して下さい},99999,{im({No})},
  41.         {   掲示板   },
  42.                 {CUGKAKISET({ＣＵＧ内掲示板});im({Yes})},
  43.         {   会議室   },
  44.                 {CUGKAKISET({ＣＵＧ内会議室});im({Yes})},
  45.         { ＯＬＴ広場 },{CUGOLTSET;im({Yes})},
  46.         {   ＯＳＬ   },{CUGOSLSET;im({Yes})},
  47.         {   終  了   },{im({No})});
  48.     });
  49. };
  50.  
  51. /*    アップロードファイル内容確認    */
  52. %KAKUNIN{
  53.     var    file1    [64];
  54.     var    memono    [1];
  55.     case    (@mlast==9,{Yes},{memono:=9},{No},{memono:=@mlast+1});
  56.     loop    ({
  57.     footnote({テキストファイルを選択してください});
  58.     file1:=@filesel;
  59.     case    (file1<>{},
  60.         {Yes},    {case    (@nochar(@getcdir)==3,
  61.                 {Yes},{file1:=@getcdir|file1},
  62.                 {No},{file1:=@getcdir|{\}|file1})});
  63.     case    (file1={}||@filechk(file1)={No},
  64.         {Yes},    {file1:={}},
  65.         {No},    {footnote({送信用テキストファイルを確認します});
  66.             CloseAllMemo;
  67.             madd(memono,{\n});
  68.             mclear(memono);
  69.             mread(file1,memono);
  70.             mopen(memono,0,21,639,459,{w});
  71.             %a    @loop({
  72.                 footnote({指定 次 取消},{b});
  73.                 waitx();
  74.                 case    (@xtype,
  75.                     101,{im(file1)},
  76.                     201,{im(file1)},
  77.                     102,{im({next})},
  78.                     202,{im({next})},
  79.                     103,{im({cancel})},
  80.                     203,{im({cancel})},,{im({Yes})});
  81.                 });
  82.             CloseAllMemo;
  83.             case(a,    {next},    {im({Yes})},
  84.                 {cancel},{file1:={};im({No})},,{im({No})})});
  85.     });
  86.     case(file1<>{},{Yes},{CloseMEMO(memono);SENDFILE:=file1});
  87. };
  88.  
  89. /*    アップロードファイル指定処理    */
  90. %FILEsel1{
  91.     var upfile[64];
  92.     SNDMSG({erande_f.snd});
  93.     upfile:=@filesel;
  94.     case(upfile,{},{im({})},,{case    (@nochar(@getcdir)=3,
  95.                     {Yes},{upfile:=@getcdir|upfile},
  96.                     {No},{upfile:=@getcdir|{\}|upfile})});
  97.     im(upfile);
  98. };
  99.  
  100. /*    ＩＤ検索処理    */
  101. %IDsearch{
  102.     %memono1    @mlast+1;
  103.     %pickid{
  104.     %m  @nolmemo(memono1);
  105.     %n  @xlinenum;
  106.     %l1 @case    (n<1,
  107.             {Yes},    {im(@memo(memono1,1,1))},
  108.             {No},    {case    (n>m,
  109.                     {Yes},{im(@memo(memono1,m,1))},
  110.                     {No},{im(@memo(memono1,n,1))})});
  111.     im(@head(l1,{ }));
  112.     };
  113.  
  114.     %idsearch{
  115.     case (SENDID,{},{SENDID:=SENDID2},,{SENDID:=SENDID|{,}|SENDID2});
  116.     };
  117.  
  118.     case    (memono1>9,
  119.         {Yes},{SNDMSG({kaknin_f.snd});
  120.             select({メモ番号が一杯のためメモを開けません},
  121.                 99999,,)},
  122.         {No},
  123.         {CloseAllMemo;
  124.         madd(memono1,{\n});
  125.         mclear(memono1);
  126.         case    (@filechk(DIR1|{\PVAPLIST.DAT}),
  127.             {Yes},{mread(DIR1|{\PVAPLIST.DAT},memono1)});
  128.          mopen(memono1,320,21,639,459,{r});
  129.         footnote({選択中止},{b});
  130.         loop({
  131.         waitx();
  132.         case    (@xtype,
  133.             101,{%SENDID2 @pickid;idsearch;im({No})},
  134.             201,{%SENDID2 @pickid;idsearch;im({No})},
  135.             102,{im({No})},        202,{im({No})},
  136.             memono1,{%SENDID2 @pickid;idsearch;im({No})},
  137.                 ,{im({Yes})});
  138.         });
  139.         case    (@mcheck==memono1,
  140.             {Yes},    {mclose(3)},
  141.             {No},    {CloseAllMemo;mopen(memono1);mclose(3)})});
  142. };
  143.  
  144. /*    メールアップロード予約    */
  145. %MAILSET{
  146.     [MAILTYPE]
  147.     var SENDID[64];
  148.     var TITLE[40];
  149.     var AD[6];
  150.     var MAILCOM[4];
  151.     var SENDFILE[64];
  152.     var ok[2];
  153.     loop({
  154.     %mailcom @case(MAILCOM,{BC},{im({1})},,{im({2})});
  155.     SNDMSG({nyuryo_f.snd});
  156.     footnote(MAILTYPE|{アップロード予約});
  157.     %a    @plane(    {c}|MAILTYPE|{アップロード予約\n}|
  158.             {t送信ＩＤ     /\n}|
  159.             {s             / ＩＤ一覧 \n}|
  160.             {c　複数のＩＤに送信する場合は｢,｣で区切って下さい\n}|
  161.             {tタイトル     /12345678901234567890}|
  162.             {12345678901234567890\n}|
  163.             {t送信日       /123456\n}|
  164.             {c （例）920428  92年4月28日に送信する場合\n}|
  165.             {rコマンド     /ＢＣ /無し\n}|
  166.             {t送信ファイル /\n}|
  167.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  168.             {s/ 登録 / 取消 \n},
  169.             SENDID,TITLE,AD,mailcom,SENDFILE);
  170.     SENDID:=    @head(@getline(a,1,1),{\n});
  171.     %sel2        @head(@getline(a,2,1),{\n});
  172.     TITLE:=        @head(@getline(a,3,1),{\n});
  173.     AD:=        @head(@getline(a,4,1),{\n});
  174.     %mailcom    @head(@getline(a,5,1),{\n});
  175.     MAILCOM:=    @case    (mailcom,
  176.                 { 1},{im({BC})},
  177.                 { 2},{im({無し})});
  178.     SENDFILE:=    @head(@getline(a,6,1),{\n});
  179.     %sel        @head(@getline(a,7,1),{\n});
  180.     ok:=        @head(@getline(a,8,1),{\n});
  181.     case(sel==1,{Yes},{case    (MAILTYPE,
  182.                 {テキストメール},
  183.                     {KAKUNIN;im({Yes})},
  184.                 {バイナリメール},
  185.                     {SENDFILE:=@FILEsel1;im({Yes})})});
  186.     case(sel==2,{Yes},{case    (MAILTYPE,
  187.                 {テキストメール},
  188.                     {%memono @mlast+1;SHINKI;im({Yes})},,
  189.                     {im({Yes})})});
  190.     case(sel2==1,{Yes},{IDsearch;im({Yes})});
  191.     });
  192.     %WRITE{
  193.     write    (TEMPPATH|{\PVAPUP.DAT},
  194.         MAILTYPE|{/}|
  195.         SENDID|{/}|
  196.         AD|{/}|
  197.         TITLE|{/}|
  198.         MAILCOM|{/}|
  199.         SENDFILE|{\n});
  200.     };
  201.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  202. };
  203.  
  204. /*    ＮＩＦＴＹ連携メールアップロード予約    */
  205. %NIFMAILSET{
  206.     var SENDID[64];
  207.     var TITLE[40];
  208.     var AD[6];
  209.     var SENDFILE[64];
  210.     var ok[2];
  211.     loop({
  212.     SNDMSG({nyuryo_f.snd});
  213.     footnote({ＮＩＦＴＹ連携メールアップロード予約});
  214.     %a    @plane(    {cＮＩＦＴＹ連携メールアップロード予約\n}|
  215.             {t送信ＩＤ     /\n}|
  216.             {c　複数のＩＤに送信する場合は｢,｣で区切って下さい\n}|
  217.             {tタイトル     /12345678901234567890}|
  218.             {12345678901234567890\n}|
  219.             {t送信日       /123456\n}|
  220.             {c （例）920428  92年4月28日に送信する場合\n}|
  221.             {t送信ファイル /\n}|
  222.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  223.             {s/ 登録 / 取消 \n},
  224.             SENDID,TITLE,AD,SENDFILE);
  225.     SENDID:=    @head(@getline(a,1,1),{\n});
  226.     TITLE:=        @head(@getline(a,2,1),{\n});
  227.     AD:=        @head(@getline(a,3,1),{\n});
  228.     SENDFILE:=    @head(@getline(a,4,1),{\n});
  229.     %sel        @head(@getline(a,5,1),{\n});
  230.     ok:=        @head(@getline(a,6,1),{\n});
  231.     case(sel==1,{Yes},{KAKUNIN;im({Yes})});
  232.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI;im({Yes})});
  233.     });
  234.     %WRITE{
  235.     write    (TEMPPATH|{\PVAPUP.DAT},
  236.         {ＮＩＦＴＹ連携メール/}|
  237.         SENDID|{/}|
  238.         TITLE|{/}|
  239.         AD|{/}|
  240.         SENDFILE|{\n});
  241.     };
  242.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  243. };
  244.  
  245. /*    ＰＣ－ＶＡＮ事務局宛メールアップロード予約    */
  246. %JMAILSET{
  247.     var TITLE[40];
  248.     var SENDFILE[64];
  249.     var ok[2];
  250.     loop({
  251.     SNDMSG({nyuryo_f.snd});
  252.     footnote({事務局宛メールアップロード予約});
  253.     %a    @plane(    {c事務局宛メールアップロード予約\n}|
  254.             {tタイトル     /}|
  255.             {1234567890123456789012345678901234567890\n}|
  256.             {t送信ファイル /\n}|
  257.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  258.             {s/ 登録 / 取消 \n},
  259.             TITLE,SENDFILE);
  260.     TITLE:=        @head(@getline(a,1,1),{\n});
  261.     SENDFILE:=    @head(@getline(a,2,1),{\n});
  262.     %sel        @head(@getline(a,3,1),{\n});
  263.     ok:=        @head(@getline(a,4,1),{\n});
  264.     case(sel==1,{Yes},{KAKUNIN;im({Yes})});
  265.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI;im({Yes})});
  266.     });
  267.     %WRITE{
  268.     write    (TEMPPATH|{\PVAPUP.DAT},
  269.         {事務局宛メール/}|
  270.         TITLE|{/}|
  271.         SENDFILE|{\n});
  272.     };
  273.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  274. };
  275.  
  276. /*    不在通知登録予約    */
  277. %FUZAISET{
  278.     var AD1[6];
  279.     var AD2[6];
  280.     var SENDFILE[64];
  281.     var ok[2];
  282.     loop({
  283.     SNDMSG({nyuryo_f.snd});
  284.     footnote({不在通知登録予約});
  285.     %a    @plane(    {c不在通知登録予約\n}|
  286.             {t不在開始日   /123456\n}|
  287.             {c （例）920428  92年4月28日に不在開始する場合\n}|
  288.             {t不在終了日   /123456\n}|
  289.             {c （例）920528  92年5月28日に不在終了する場合\n}|
  290.             {t送信ファイル /\n}|
  291.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  292.             {s/ 登録 / 取消 \n},
  293.             AD1,AD2,SENDFILE);
  294.     AD1:=        @head(@getline(a,1,1),{\n});
  295.     AD2:=        @head(@getline(a,2,1),{\n});
  296.     SENDFILE:=    @head(@getline(a,3,1),{\n});
  297.     %sel        @head(@getline(a,4,1),{\n});
  298.     ok:=        @head(@getline(a,5,1),{\n});
  299.     case(sel==1,{Yes},{KAKUNIN;im({Yes})});
  300.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI;im({Yes})});
  301.     });
  302.     %WRITE{
  303.     write    (TEMPPATH|{\PVAPUP.DAT},
  304.         {不在通知/}|
  305.         AD1|{/}|AD2|{/}|
  306.         SENDFILE|{\n});
  307.     };
  308.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  309. };
  310.  
  311. /*    ＳＩＧ・ＢＢＳの発言アップロード予約    */
  312. %KAKISET{[WHERE]
  313.     var JUMP[8];
  314.     var NUMBER[2];
  315.     var TITLE[120];
  316.     var SENDFILE[64];
  317.     var ok[2];
  318.     loop({
  319.     SNDMSG({nyuryo_f.snd});
  320.     footnote(WHERE|{発言アップロード予約});
  321.     %a    @plane(    {c}|WHERE|{発言アップロード予約\n}|
  322.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ   /12345678\n}|
  323.             {tボード番号   /12\n}|
  324.             {tタイトル     /\n}|
  325.             {t送信ファイル /\n}|
  326.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  327.             {s/ 登録 / 取消 \n},
  328.             JUMP,NUMBER,TITLE,SENDFILE);
  329.     JUMP:=        @head(@getline(a,1,1),{\n});
  330.     NUMBER:=    @head(@getline(a,2,1),{\n});
  331.     TITLE:=        @head(@getline(a,3,1),{\n});
  332.     SENDFILE:=    @head(@getline(a,4,1),{\n});
  333.     %sel        @head(@getline(a,5,1),{\n});
  334.     ok:=        @head(@getline(a,6,1),{\n});
  335.     case(sel==1,{Yes},{KAKUNIN});
  336.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
  337.     %WRITE{
  338.     write    (TEMPPATH|{\PVAPUP.DAT},
  339.         WHERE|{/}|
  340.         JUMP|{/}|
  341.         NUMBER|{/}|
  342.         TITLE|{/}|
  343.         SENDFILE|{\n});
  344.     };
  345.     case    (ok,
  346.         { 1},    {case    (@nochar(TITLE)>={60},
  347.                 {No},    {WRITE;im({No})},
  348.                 {Yes},    {SNDMSG({okasi_f.snd});
  349.                     select({タイトルの文字数が多すぎます}|
  350.                         {（全角で３０文字まで）},
  351.                         99999,{im({Yes})},
  352.                         { 確認 },{im({Yes})})})},
  353.         { 2},    {im({No})},,
  354.             {case    (ok={ 0}&&sel={ 0},
  355.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  356.                 {No},    {im({Yes})})});
  357.     });
  358.     setcdir(DIR1);
  359. };
  360.  
  361. /*    ＳＩＧ内ＯＬＴ広場発言アップロード予約    */
  362. %SIGOLTSET{
  363.     var JUMP[8];
  364.     var TITLE[120];
  365.     var SENDFILE[64];
  366.     var ok[2];
  367.     loop({
  368.     SNDMSG({nyuryo_f.snd});
  369.     footnote({ＳＩＧ内ＯＬＴ広場発言アップロード予約});
  370.     %a    @plane(    {cＳＩＧ内ＯＬＴ広場発言アップロード予約\n}|
  371.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ   /12345678\n}|
  372.             {tタイトル     /\n}|
  373.             {t送信ファイル /\n}|
  374.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  375.             {s/ 登録 / 取消 \n},
  376.             JUMP,TITLE,SENDFILE);
  377.     JUMP:=        @head(@getline(a,1,1),{\n});
  378.     TITLE:=        @head(@getline(a,2,1),{\n});
  379.     SENDFILE:=    @head(@getline(a,3,1),{\n});
  380.     %sel        @head(@getline(a,4,1),{\n});
  381.     ok:=        @head(@getline(a,5,1),{\n});
  382.     case(sel==1,{Yes},{KAKUNIN});
  383.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
  384.     %WRITE{
  385.     write    (TEMPPATH|{\PVAPUP.DAT},
  386.         {ＳＩＧ内ＯＬＴ広場/}|
  387.         JUMP|{/}|
  388.         TITLE|{/}|
  389.         SENDFILE|{\n});
  390.     };
  391.     case    (ok,
  392.         { 1},    {case    (@nochar(TITLE)>={60},
  393.                 {No},    {WRITE;im({No})},
  394.                 {Yes},    {SNDMSG({okasi_f.snd});
  395.                     select({タイトルの文字数が多すぎます}|
  396.                         {（全角で３０文字まで）},
  397.                         99999,{im({Yes})},
  398.                         { 確認 },{im({Yes})})})},
  399.         { 2},    {im({No})},,
  400.             {case    (ok={ 0}&&sel={ 0},
  401.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  402.                 {No},    {im({Yes})})});
  403.     });
  404.     setcdir(DIR1);
  405. };
  406.  
  407. /*    ＣＵＧの発言アップロード予約    */
  408. %CUGKAKISET{[WHERE]
  409.     var CUG[8];
  410.     var PASS[8];
  411.     var MAINNUM[2];
  412.     var NUMBER[2];
  413.     var TITLE[120];
  414.     var SENDFILE[64];
  415.     var ok[2];
  416.     loop({
  417.     SNDMSG({nyuryo_f.snd});
  418.     footnote(WHERE|{発言アップロード予約});
  419.     %a    @plane(    {c}|WHERE|{発言アップロード予約\n}|
  420.             {tＣＵＧ名     /12345678\n}|
  421.             {tパスワード   /12345678\n}|
  422.             {s             / 検索 \n}|
  423.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  424.             {tボード 番号  /12\n}|
  425.             {tタイトル     /\n}|
  426.             {t送信ファイル /\n}|
  427.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  428.             {s/ 登録 / 取消 \n},
  429.             CUG,PASS,MAINNUM,NUMBER,TITLE,SENDFILE);
  430.     CUG:=        @head(@getline(a,1,1),{\n});
  431.     PASS:=        @head(@getline(a,2,1),{\n});
  432.     %sel2        @head(@getline(a,3,1),{\n});
  433.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  434.     NUMBER:=    @head(@getline(a,5,1),{\n});
  435.     TITLE:=        @head(@getline(a,6,1),{\n});
  436.     SENDFILE:=    @head(@getline(a,7,1),{\n});
  437.     %sel        @head(@getline(a,8,1),{\n});
  438.     ok:=        @head(@getline(a,9,1),{\n});
  439.     case(sel==1,{Yes},{KAKUNIN});
  440.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
  441.     case(sel2==1,{Yes},{case(CUG={},
  442.                 {No},{PASS:=@tail(PCVAN,{/}|CUG|{/},{/})})});
  443.     %WRITE{
  444.     write    (TEMPPATH|{\PVAPUP.DAT},
  445.         WHERE|{/}|
  446.         CUG|{/}|PASS|{/}|MAINNUM|{/}|
  447.         NUMBER|{/}|
  448.         TITLE|{/}|
  449.         SENDFILE|{\n});
  450.     };
  451.     case    (ok,
  452.         { 1},    {case    (@nochar(TITLE)>={60},
  453.                 {No},    {WRITE;im({No})},
  454.                 {Yes},    {SNDMSG({okasi_f.snd});
  455.                     select({タイトルの文字数が多すぎます}|
  456.                         {（全角で３０文字まで）},
  457.                         99999,{im({Yes})},
  458.                         { 確認 },{im({Yes})})})},
  459.         { 2},    {im({No})},,
  460.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  461.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  462.                 {No},    {im({Yes})})});
  463.     });
  464.     setcdir(DIR1);
  465. };
  466.  
  467. /*    ＣＵＧ内ＯＬＴ広場発言アップロード予約    */
  468. %CUGOLTSET{
  469.     var CUG[8];
  470.     var PASS[8];
  471.     var MAINNUM[2];
  472.     var TITLE[120];
  473.     var SENDFILE[64];
  474.     var ok[2];
  475.     loop({
  476.     SNDMSG({nyuryo_f.snd});
  477.     footnote({ＣＵＧ内ＯＬＴ広場発言アップロード予約});
  478.     %a    @plane(    {cＣＵＧ内ＯＬＴ広場発言アップロード予約\n}|
  479.             {tＣＵＧ名     /12345678\n}|
  480.             {tパスワード   /12345678\n}|
  481.             {s             / 検索 \n}|
  482.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  483.             {tタイトル     /\n}|
  484.             {t送信ファイル /\n}|
  485.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  486.             {s/ 登録 / 取消 \n},
  487.             CUG,PASS,MAINNUM,TITLE,SENDFILE);
  488.     CUG:=        @head(@getline(a,1,1),{\n});
  489.     PASS:=        @head(@getline(a,2,1),{\n});
  490.     %sel2        @head(@getline(a,3,1),{\n});
  491.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  492.     TITLE:=        @head(@getline(a,5,1),{\n});
  493.     SENDFILE:=    @head(@getline(a,6,1),{\n});
  494.     %sel        @head(@getline(a,7,1),{\n});
  495.     ok:=        @head(@getline(a,8,1),{\n});
  496.     case(sel==1,{Yes},{KAKUNIN});
  497.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
  498.     case(sel2==1,{Yes},{case(CUG={},
  499.                 {No},{PASS:=@tail(PCVAN,{/}|CUG|{/},{/})})});
  500.     %WRITE{
  501.     write    (TEMPPATH|{\PVAPUP.DAT},
  502.         {ＣＵＧ内ＯＬＴ広場/}|
  503.         CUG|{/}|PASS|{/}|
  504.         MAINNUM|{/}|TITLE|{/}|
  505.         SENDFILE|{\n});
  506.     };
  507.     case    (ok,
  508.         { 1},    {case    (@nochar(TITLE)>={60},
  509.                 {No},    {WRITE;im({No})},
  510.                 {Yes},    {SNDMSG({okasi_f.snd});
  511.                     select({タイトルの文字数が多すぎます}|
  512.                         {（全角で３０文字まで）},
  513.                         99999,{im({Yes})},
  514.                         { 確認 },{im({Yes})})})},
  515.         { 2},    {im({No})},,
  516.             {case    (ok={ 0}&&sel={ 0},
  517.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  518.                 {No},    {im({Yes})})});
  519.     });
  520.     setcdir(DIR1);
  521. };
  522.  
  523. /*    ＯＬＴ広場発言アップロード予約    */
  524. %OLTSET{
  525.     var TITLE[120];
  526.     var SENDFILE[64];
  527.     var ok[2];
  528.     loop({
  529.     SNDMSG({nyuryo_f.snd});
  530.     footnote({ＯＬＴ広場発言アップロード予約});
  531.     %a    @plane(    {cＯＬＴ広場発言アップロード予約\n}|
  532.             {tタイトル     /\n}|
  533.             {t送信ファイル /\n}|
  534.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  535.             {s/ 登録 / 取消 \n},
  536.             TITLE,SENDFILE);
  537.     TITLE:=        @head(@getline(a,1,1),{\n});
  538.     SENDFILE:=    @head(@getline(a,2,1),{\n});
  539.     %sel        @head(@getline(a,3,1),{\n});
  540.     ok:=        @head(@getline(a,4,1),{\n});
  541.     case(sel==1,{Yes},{KAKUNIN});
  542.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
  543.     %WRITE{
  544.     write    (TEMPPATH|{\PVAPUP.DAT},
  545.         {ＯＬＴ広場/}|
  546.         TITLE|{/}|
  547.         SENDFILE|{\n});
  548.     };
  549.     case    (ok,
  550.         { 1},    {case    (@nochar(TITLE)>={60},
  551.                 {No},    {WRITE;im({No})},
  552.                 {Yes},    {SNDMSG({okasi_f.snd});
  553.                     select({タイトルの文字数が多すぎます}|
  554.                         {（全角で３０文字まで）},
  555.                         99999,{im({Yes})},
  556.                         { 確認 },{im({Yes})})})},
  557.         { 2},    {im({No})},,
  558.             {case    (ok={ 0}&&sel={ 0},
  559.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  560.                 {No},    {im({Yes})})});
  561.     });
  562.     setcdir(DIR1);
  563. };
  564.  
  565. /*    プロフィール登録予約    */
  566. %PROFSET{
  567.     var SENDFILE[64];
  568.     var ok[2];
  569.     loop({
  570.     SNDMSG({nyuryo_f.snd});
  571.     footnote({プロフィール登録予約});
  572.     %a    @plane(    {cプロフィール登録予約\n}|
  573.             {t送信ファイル /\n}|
  574.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  575.             {s/ 登録 / 取消 \n},
  576.             SENDFILE);
  577.     SENDFILE:=    @head(@getline(a,1,1),{\n});
  578.     %sel        @head(@getline(a,2,1),{\n});
  579.     ok:=        @head(@getline(a,3,1),{\n});
  580.     case(sel==1,{Yes},{KAKUNIN;im({Yes})});
  581.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI;im({Yes})});
  582.     });
  583.     %WRITE{
  584.     write    (TEMPPATH|{\PVAPUP.DAT},
  585.         {プロフィール/}|
  586.         SENDFILE|{\n});
  587.     };
  588.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  589. };
  590.  
  591. /*    ＳＩＧ内ＯＳＬアップロード予約    */
  592. %OSLSET{
  593.     var JUMP[8];
  594.     var OSLNUM[2];
  595.     var TITLE[144];
  596.     var SENDFILE[64];
  597.     var sendfile[64];
  598.     var ok[2];
  599.     loop({
  600.     SNDMSG({nyuryo_f.snd});
  601.     footnote({ＳＩＧ内ＯＳＬアップロード予約});
  602.     %a    @plane(    {cＳＩＧ内ＯＳＬアップロード予約\n}|
  603.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ   /12345678\n}|
  604.             {tＯＳＬ番号   /12\n}|
  605.             {tコメント     /\n}|
  606.             {tﾄﾞｷｭﾒﾝﾄ ﾌｧｲﾙ /\n}|
  607.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  608.             {tﾌﾟﾛｸﾞﾗﾑ ﾌｧｲﾙ /\n}|
  609.             {s             / ﾌｧｲﾙ一覧 \n}|
  610.             {s/ 登録 / 取消 \n},
  611.             JUMP,OSLNUM,TITLE,SENDFILE,sendfile);
  612.     JUMP:=        @head(@getline(a,1,1),{\n});
  613.     OSLNUM:=    @head(@getline(a,2,1),{\n});
  614.     TITLE:=        @head(@getline(a,3,1),{\n});
  615.     SENDFILE:=    @head(@getline(a,4,1),{\n});
  616.     %sel        @head(@getline(a,5,1),{\n});
  617.     sendfile:=    @head(@getline(a,6,1),{\n});
  618.     %sel2        @head(@getline(a,7,1),{\n});
  619.     ok:=        @head(@getline(a,8,1),{\n});
  620.     case(sel==1,{Yes},{KAKUNIN});
  621.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
  622.     case(sel2==1,{Yes},{sendfile:=@FILEsel1});
  623.     %WRITE{
  624.     write    (TEMPPATH|{\PVAPUP.DAT},
  625.         {ＳＩＧ内ＯＳＬ/}|
  626.         JUMP|{/}|
  627.         OSLNUM|{/}|
  628.         TITLE|{/}|
  629.         SENDFILE|{/}|sendfile|{\n});
  630.     };
  631.     case    (ok,
  632.         { 1},    {case    (@nochar(TITLE)>={72},
  633.                 {No},    {WRITE;im({No})},
  634.                 {Yes},    {SNDMSG({okasi_f.snd});
  635.                     select({コメントの文字数が多すぎます}|
  636.                         {（全角で３６文字まで）},
  637.                         99999,{im({Yes})},
  638.                         { 確認 },{im({Yes})})})},
  639.         { 2},    {im({No})},,
  640.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0},
  641.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  642.                 {No},    {im({Yes})})});
  643.     });
  644.     setcdir(DIR1);
  645. };
  646.  
  647. /*    ＣＵＧ内ＯＳＬアップロード予約    */
  648. %CUGOSLSET{
  649.     var CUG[8];
  650.     var PASS[8];
  651.     var MAINNUM[2];
  652.     var OSLNUM[2];
  653.     var TITLE[144];
  654.     var SENDFILE[64];
  655.     var sendfile[64];
  656.     var ok[2];
  657.     loop({
  658.     SNDMSG({nyuryo_f.snd});
  659.     footnote({ＣＵＧ内ＯＳＬアップロード予約});
  660.     %a    @plane(    {cＣＵＧ内ＯＳＬアップロード予約\n}|
  661.             {tＣＵＧ名     /12345678\n}|
  662.             {tパスワード   /12345678\n}|
  663.             {s             / 検索 \n}|
  664.             {tﾒｲﾝﾒﾆｭｰ番号  /12\n}|
  665.             {tＯＳＬ 番号  /12\n}|
  666.             {tコメント     /\n}|
  667.             {tﾄﾞｷｭﾒﾝﾄ ﾌｧｲﾙ /\n}|
  668.             {s             / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  669.             {tﾌﾟﾛｸﾞﾗﾑ ﾌｧｲﾙ /\n}|
  670.             {s             / ﾌｧｲﾙ一覧 \n}|
  671.             {s/ 登録 / 取消 \n},
  672.             CUG,PASS,MAINNUM,OSLNUM,TITLE,SENDFILE,sendfile);
  673.     CUG:=        @head(@getline(a,1,1),{\n});
  674.     PASS:=        @head(@getline(a,2,1),{\n});
  675.     %sel3        @head(@getline(a,3,1),{\n});
  676.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  677.     OSLNUM:=    @head(@getline(a,5,1),{\n});
  678.     TITLE:=        @head(@getline(a,6,1),{\n});
  679.     SENDFILE:=    @head(@getline(a,7,1),{\n});
  680.     %sel        @head(@getline(a,8,1),{\n});
  681.     sendfile:=    @head(@getline(a,9,1),{\n});
  682.     %sel2        @head(@getline(a,10,1),{\n});
  683.     ok:=        @head(@getline(a,11,1),{\n});
  684.     case(sel==1,{Yes},{KAKUNIN});
  685.     case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
  686.     case(sel2==1,{Yes},{sendfile:=@FILEsel1});
  687.     case(sel3==1,{Yes},{case(CUG={},
  688.                 {No},{PASS:=@tail(PCVAN,{/}|CUG|{/},{/})})});
  689.     %WRITE{
  690.     write    (TEMPPATH|{\PVAPUP.DAT},
  691.         {ＣＵＧ内ＯＳＬ/}|
  692.         CUG|{/}|PASS|{/}|MAINNUM|{/}|
  693.         OSLNUM|{/}|
  694.         TITLE|{/}|
  695.         SENDFILE|{/}|sendfile|{\n});
  696.     };
  697.     case    (ok,
  698.         { 1},    {case    (@nochar(TITLE)>={72},
  699.                 {No},    {WRITE;im({No})},
  700.                 {Yes},    {SNDMSG({okasi_f.snd});
  701.                     select({コメントの文字数が多すぎます}|
  702.                         {（全角で３６文字まで）},
  703.                         99999,{im({Yes})},
  704.                         { 確認 },{im({Yes})})})},
  705.         { 2},    {im({No})},,
  706.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0}&&sel3={ 0},
  707.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  708.                 {No},    {im({Yes})})});
  709.     });
  710.     setcdir(DIR1);
  711. };
  712.  
  713. /*    他のファイルを参照するためにメモを開く    */
  714. %newmemo{
  715.     case    (@mlast==9,
  716.         {Yes},    {SNDMSG({kaknin_f.snd});
  717.             select({メモ番号が一杯のため、}|
  718.                     {新しいメモが開けません},99999,,
  719.                 { 確認 },)},
  720.         {No},
  721.             {CloseAllMemo;
  722.             mopen(memono,0,21,639,439);
  723.             mclose(1);
  724.             %MEMO @mlast+1;
  725.             madd(MEMO,{\n});
  726.             mclear(MEMO);
  727.             %file1    @filesel;
  728.             case    (file1<>{}&&@filechk(file1)={Yes},
  729.                 {Yes},{mread(file1,MEMO)});
  730.             mopen(MEMO,0,221,639,459)});
  731.     im({Yes});
  732. };
  733.  
  734. /*    アップ用文書新規作成処理    */
  735. %SHINKI{
  736.     %savememo{
  737.     footnote({アップ用テキストファイルを新規作成します});
  738.     mkdir2(TEMPPATH);
  739.     %file1 @crefile2(TEMPPATH,{res});
  740.     CloseAllMemo;
  741.     mwrite(TEMPPATH|{\}|file1,memono);
  742.     SENDFILE:=TEMPPATH|{\}|file1;
  743.     AllDelMEMO;
  744.     im({No});
  745.     };
  746.  
  747.     footnote({アップ用テキストファイルを新規作成します});
  748.     CloseAllMemo;
  749.     madd(memono,{\n});
  750.     mclear(memono);
  751.     mopen(memono,0,21,639,459,{w});
  752.     loop({
  753.     footnote({終了取消参照清書},{b});
  754.     waitx();
  755.     case(@xtype,
  756.     101,{savememo},201,{savememo},
  757.     102,{cancel},202,{cancel},
  758.     103,{newmemo},203,{newmemo},
  759.     104,{rewrite},204,{rewrite},,{im({Yes})});
  760.     });
  761. };
  762.  
  763. /*    アップ用文書を清書する    */
  764. %rewrite{
  765.     footnote({編集中のメモ内容を清書しています});
  766.     CloseAllMemo;
  767.     dispoff({Yes});
  768.     %cdir @getcdir;
  769.     setcdir(DIR1);
  770.     command({del }|TEMPPATH|{\_moptext.tmp});
  771.     command({del }|TEMPPATH|{\_moptext.new});
  772.     mwrite(TEMPPATH|{\_moptext.tmp},memono);
  773.     case    (DIR2={},
  774.         {Yes},    {command({txf -f -i }|TEMPPATH|{\_moptext.tmp}|
  775.                 { -o }|TEMPPATH|{\_moptext.new})},
  776.         {No},    {command(DIR2|{\txf -f -i }|TEMPPATH|{\_moptext.tmp}|
  777.                 { -o }|TEMPPATH|{\_moptext.new})});
  778.  
  779.     dispoff({No});
  780.     case    (@filechk(TEMPPATH|{\_moptext.new}),
  781.         {Yes},    {mclear(memono);
  782.             mread(TEMPPATH|{\_moptext.new},memono);
  783.             %memomax    @mlast;
  784.             case    (memomax>memono,
  785.                 {Yes},{mopen(memono,0,21,639,399,{w})},
  786.                 {No},{mopen(memono,0,21,639,459,{w})});
  787.             var memono1[1];
  788.             memono1:=memono+1;
  789.             loop({
  790.             case    (memono1<=memomax,
  791.                 {Yes},{mclose(1);mopen(memono1)});
  792.             memono1:=memono1+1;
  793.             im(memono1<=memomax);
  794.             })},
  795.         {No},    {SNDMSG({kaknin_f.snd});
  796.             select({清書機能には TXF.EXE がパスの通った}|
  797.                 {ディレクトリに必要です},99999,,
  798.                 { 確認 },);
  799.             mopen(memono,0,21,639,459,{w});
  800.             %memomax @mlast;
  801.             var memono1[1];
  802.             memono1:=memono+1;
  803.             loop({
  804.             case    (memono1<=memomax,
  805.                 {Yes},{mclose(1);mopen(memono1)});
  806.             memono1:=memono1+1;
  807.             im(memono1<=memomax);
  808.             })});
  809.     setcdir(cdir);
  810.     im({Yes});
  811. };
  812.  
  813. /*    アップ文書作成をキャンセルする    */
  814. %cancel    {
  815.     SNDMSG({kaknin_f.snd});
  816.     footnote({文書編集を取消しますか？});
  817.     select({文書編集を取消しますか？},
  818.         99999,{footnote({});im({Yes})},
  819.         {  は  い  },    {AllDelMEMO;
  820.                 footnote({});
  821.                 im({No})},
  822.         {  いいえ  },    {footnote({});im({Yes})});
  823. };
  824.  
  825. /*    実行    */
  826. UPSET;
  827.